#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: Mash together all the statistics that we store in a directory

my $dir = shift;
my $header;
foreach my $file (`ls $dir`) {
	open(IF, "$dir/$file");
	my $line = <IF>;
	if(undef($header)) {
		$header = $line;
#		print $header;
	}
	$line = <IF>;
	print $line;
	close(IF);
}
